Option Explicit
Sub D_Sample029()
    Dim myFileName As String
    myFileName = ThisWorkbook.Path & "\temp.xls"     'Nɮ
    'ǳƨ즹
    Workbooks.Open Filename:=myFileName
End Sub
